home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / BAMMAP.ARC / BAM 7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  505 b   |  23 lines
  1. 10 ;BAM 7
  2. 20 ;A BYTE SUCH AS 11110000 BECOMES 00001111
  3. 30 REV STA A;SAVE BYTE TO REVERSE BITS
  4. 40 LDA #$00;CLEAR BIT BYTES
  5. 50 STA BITBUF
  6. 60 STA BITBUF+1
  7. 70 LDA A
  8. 80 STA BITBUF
  9. 90 LDY #$00
  10. 100 REV1 LSR BITBUF;PUSH BIT 0 INTO CARRY FLAG
  11. 110 ROL BITBUF+1;PUSH CARRY BIT INTO REVERSE BYTE
  12. 120 ;
  13. 130 ;ORG BITS PUSHED RIGHT NEW BITS PUSHED LEFT
  14. 140 ;WHEN FINISHED BYTE REVERSED
  15. 150 ;
  16. 160 INY
  17. 170 CPY #$08
  18. 180 BNE REV1
  19. 190 LDA BITBUF+1;REVERSE BYTE
  20. 200 STA ORG;PUT HERE FOR BINARY CONVERSION
  21. 210 RTS
  22. 220 .FILE BAM 8
  23.